home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / dev / basic / LucyPlayDevBas.lha / bestmode.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-24  |  1.8 KB  |  56 lines

  1. ' *********************************************************************
  2. '                     `BestMode.bas' example based
  3. '              over the C example wroter by Oliver Gantert
  4. '
  5. '           Ejemplo `BestMode.bas' basado en la versión en C
  6. '                      escrita por Olivert Gantert
  7. '
  8. '                  C to HBASIC conversion 1.0 (24.8.00)
  9. '                by Dámaso D. Estévez <amidde@arrakis.es>
  10. '               AmiSpaTra - http://www.arrakis.es/~amidde/
  11. ' *********************************************************************
  12.  
  13. REM $include graphics.bc    ' INVALID_ID& (tag/etiqueta)
  14. REM $include lucyplay.bh
  15.  
  16. ' =====================================================================
  17. '                    Global vars / Variables globales
  18. ' =====================================================================
  19.  
  20. lpb&    = NULL&             ' LucyPlayBase
  21.  
  22. '     LucyPlayJoystick struct pointer
  23. ' Puntero a la estructura LucyPlayJoystick
  24. ' ----------------------------------------
  25. j&      = NULL&
  26.  
  27. ModeID& = NULL&
  28.  
  29. ' =====================================================================
  30. '                    The main code / El código principal
  31. ' =====================================================================
  32.  
  33. '        The function lucBestModeID& requires v2+
  34. ' La función lucBestModeID& requiere versión 2 o superior
  35. ' -------------------------------------------------------
  36. LIBRARY OPEN "lucyplay.library",2&
  37.  
  38. PRINT "----------------------"
  39. PRINT "`BestMode.bas' example"
  40. PRINT "Ejemplo `BestMode.bas'"
  41. PRINT "----------------------"
  42. PRINT
  43.  
  44. ModeID& = lucBestModeID&(640&,480&,8&)
  45.  
  46. IF ModeID& <> INVALID_ID& THEN
  47.     PRINT "ModeID/Identificador del modo: 0x";HEX$(ModeID&)
  48. ELSE
  49.     PRINT "[ENGLISH] No valid screenmode found."
  50.     PRINT "[ESPAÑOL] Modo de pantalla válido no encontrado."
  51. END IF
  52.  
  53. LIBRARY CLOSE "lucyplay.library"
  54.  
  55. END
  56.